home *** CD-ROM | disk | FTP | other *** search
/ EIDOS Interactive Digital Press Kit ECTS 1997 / EIDOS Digital Press Kit - ECTS 1997 - Disc 1.iso / pc / pls.dir / Internal_169.ls < prev    next >
Encoding:
Text File  |  1997-08-29  |  484 b   |  17 lines
  1. on maccopy
  2.   openXLib(":Xtras:macxtra:filecopy")
  3.   set fileName to the pathName & "screens:" & the name of cast the mouseCast
  4.   if fileName > EMPTY then
  5.     put fileName
  6.     set loc to "desktop folder:"
  7.     set wFileName to doSaveAsDlg(loc & the name of cast the mouseCast, "Tiff files@*.tif")
  8.     if wFileName > EMPTY then
  9.       put wFileName
  10.       set result to copyFile(wFileName, fileName)
  11.       put result
  12.     end if
  13.   end if
  14.   closeXLib(":Xtras:macxtra:filecopy")
  15.   abort()
  16. end
  17.